home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 May / macformat-024.iso / Demos / DTP / HomePublisher Demo / AHP Pouch / AutoCreate / Business ID / _Business Card Modern < prev    next >
Encoding:
Text File  |  1993-09-17  |  4.1 KB  |  152 lines  |  [SGPA/SCPG]
  1. on Build
  2. dodocsetup
  3. locatefonts
  4. newpublication pages 1 columns 0 PageWidth 594 PageHeight 841 pageorientation portrait topmargin 36 bottommargin 36 leftmargin 70 rightmargin 70
  5. set gridsettings to 18,18
  6. set displayinvisibles to false
  7. set facingpages to false
  8. set gridsnap to false
  9. set lockguides to false
  10. set magneticguides to false
  11. set printcoloroptions to false
  12. set printcolornames to true
  13. set printcutouts to true
  14. set printregistrationmarks to false
  15. set printmarksoptions to no
  16. set printpageoptions to all
  17. set printtypeoptions to publication
  18. set spotcolor 1 to 0,0,0
  19. set spotcolor 2 to 65535,65535,65535
  20. set spotcolor 3 to 62167,2134,34028
  21. set spotcolor 4 to 0,32768,4528
  22. set spotcolor 5 to 577,43860,60159
  23. set spotcolor 6 to 56683,2242,1698
  24. set spotcolor 7 to 0,0,54272
  25. set spotcolor 8 to 64512,62333,1327
  26. set linepattern to 1
  27. set fillpattern to 2
  28. set color to 1
  29. set framelinetype to 1
  30. set mousecursor to busy
  31. set mousecursor to busy
  32. goto rightbackground
  33. PublicationSetup columns 1
  34. set mousecursor to busy
  35. goto page 1
  36. -- •p1 1•
  37. draw Rectangle 46,73,145,136
  38. set linepattern of last object to 0
  39. set croprectangle of last object to 0,0,99,63
  40. -- •p1 2•
  41. draw rectangle 150,70,278,146
  42. set linepattern of last object to 0
  43. set croprectangle of last object to 0,0,128,76
  44. set locked of last object to true
  45. -- •p1 3•
  46. draw Line 65,142,277,142
  47. -- •p1 4•
  48. draw rectangle 61,146,169,198
  49. set linepattern of last object to 0
  50. set croprectangle of last object to 0,0,108,52
  51. set locked of last object to true
  52. -- •p1 5•
  53. draw Line 319,281,319,281
  54. -- •p1 6•
  55. draw Line 297,61,307,61
  56. -- •p1 7•
  57. draw Line 21,61,31,61
  58. -- •p1 8•
  59. draw Line 21,205,31,205
  60. -- •p1 9•
  61. draw Line 297,205,307,205
  62. -- •p1 10•
  63. draw Line 291,209,291,218
  64. -- •p1 11•
  65. draw Line 291,52,291,59
  66. -- •p1 12•
  67. draw Line 37,50,37,59
  68. -- •p1 13•
  69. draw Line 37,209,37,218
  70. -- •p1 14•
  71. draw rectangle 168,144,278,202
  72. set linepattern of last object to 0
  73. set croprectangle of last object to 0,0,115,58
  74. set locked of last object to true
  75. -- •p1 15•
  76. draw Line 591,281,591,281
  77. -- •p1 16•
  78. draw Line 319,445,319,445
  79. -- •p1 17•
  80. draw Line 319,609,319,609
  81. -- •p1 18•
  82. draw Line 319,773,319,773
  83. -- •p1 19•
  84. draw Line 591,445,591,445
  85. -- •p1 20•
  86. draw Line 591,609,591,609
  87. -- •p1 21•
  88. draw Line 591,773,591,773
  89. PublicationSetup columns 1
  90. progressdialog show "Creating text…"
  91. set the mousecursor to busy
  92. link page objects 1,2 to story "Address 1"
  93. put " " into temp
  94. put temp into story "Address 1"
  95. select all text in story "Address 1"
  96. textsetup "Helvetica" "plain" "10" "right"
  97. set the mousecursor to busy
  98. link page objects 1,4 to story "PhoneFaxTelex 1"
  99. put " " into story "PhoneFaxTelex 1"
  100. select all text in story "PhoneFaxTelex 1"
  101. textsetup "Helvetica" "plain" "10" "right"
  102. set the mousecursor to busy
  103. link page objects 1,14 to story "Person 1"
  104. put " " into story "Person 1"
  105. select all text in story "Person 1"
  106. textsetup "Helvetica" "bold" "10" "left"
  107. choose maintool
  108. progressdialog hide
  109. end Build
  110.  
  111.  
  112. on locatefonts
  113. global vHelvetica, vPalatino, vTimes, vNewYork, systemfonts
  114. put fontfamilies into systemfonts
  115. if systemfonts contains "New York" then put "New York"  into vNewYork
  116. else put "Geneva" into vNewYork
  117. if systemfonts contains "helvetica" then put "helvetica"  into vHelvetica
  118. else put "Geneva" into vHelvetica
  119. if systemfonts contains "Times" then put "Times" into vTimes
  120. else put vNewYork into vTimes
  121. if systemfonts contains "Palatino" then put "Palatino" into vPalatino
  122. else put vTimes into vPalatino
  123.  
  124. end locatefonts
  125.  
  126. on dodocsetup
  127. global usersOldMeasurement
  128. set lockscreen to true
  129. Set ShuffleTextObjects to false
  130. put measurements into usersOldMeasurement
  131. set measurements to points
  132. set displayguides to false
  133. set view to actual
  134. set itemdel to ","
  135. set worddel to space
  136. set linedel to cr
  137. set saveglobals to true
  138. progressdialog open
  139. progressdialog show "Creating publication"
  140. end dodocsetup
  141.  
  142. on textsetup thefont, theface, thesize, thejust
  143. global vHelvetica, vPalatino, vTimes, vNewYork
  144. set styleRecomposition to false
  145. set the textfont to value("v"&thefont)
  146. do "set the textface to "&theface
  147. set the textsize to thesize
  148. set the rulerjustification to thejust
  149. set styleRecomposition to true
  150. end textsetup
  151.  
  152.     </<BÏ